From: Theodor Thornhill <theo@thornhill.no>
Date: Sat, 30 Mar 2024 08:35:16 +0000 (+0100)
Subject: Disable workDoneProgress if defcustom is nil
X-Git-Tag: archive/raspbian/1%30.1+1-3+rpi1^2~14^2~18^2~2082
X-Git-Url: https://dgit.raspbian.org/%22http://www.example.com/cgi/%22/%22http:/www.example.com/cgi/%22?a=commitdiff_plain;h=a33e7c0286c2a9c8af1c96db42f5c0c37611c9db;p=emacs.git

Disable workDoneProgress if defcustom is nil

There is no need to receive the $/progress notifications from the server
if we don't want to render them. Because they are effectively ignored
when eglot-report-progress is nil we'd rather not waste cycles on serde
of the messages.

* lisp/progmodes/eglot.el (eglot-client-capabilities): use value from
defcustom to decide whether or not to advertise to server.
---

diff --git a/lisp/progmodes/eglot.el b/lisp/progmodes/eglot.el
index 515c33f8cde..f247c43203c 100644
--- a/lisp/progmodes/eglot.el
+++ b/lisp/progmodes/eglot.el
@@ -1004,7 +1004,7 @@ ACTION is an LSP object of either `CodeAction' or `Command' type."
                                          [,@(mapcar
                                              #'car eglot--tag-faces)])))
             :window `(:showDocument (:support t)
-                      :workDoneProgress t)
+                      :workDoneProgress ,(if eglot-report-progress t :json-false))
             :general (list :positionEncodings ["utf-32" "utf-8" "utf-16"])
             :experimental eglot--{})))